home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / tmpas / pasvar.pt < prev    next >
Text File  |  1990-10-02  |  420b  |  20 lines
  1. .. File: pasvar.pt
  2. ..
  3. .. Variable declarations 
  4.     { ---- start of ${tplfilename} ---- }
  5. .if ${index Stat$(basename) $(need_misc)}
  6.     { allocation/freeing counters }
  7. .foreach t $(need_stat)
  8. .if ${len ${telmlist $t}}
  9.     CntNew$t: integer;
  10.     CntFre$t: integer;
  11. .else
  12. .foreach c ${conslist $t}
  13.     CntNew$c: integer;
  14.     CntFre$c: integer;
  15. .endforeach
  16. .endif
  17. .endforeach
  18. .endif
  19.     { ---- end of ${tplfilename} ---- }
  20.